home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / fb386 / graf / a05.bas < prev    next >
BASIC Source File  |  1993-11-30  |  1KB  |  38 lines
  1. 1000 'A05.BAS***************************************************T.K.MOSAKU
  2. 1010 SCREEN@ 0
  3. 1020 CLS
  4. 1030 WINDOW (-5,-5)-(5,5)
  5. 1040 VIEW(0,0)-(640,480)
  6. 1050 PP=3.14159!/180:A=.3!:B=.5!
  7. 1060 A$="☆☆☆ 少しずつカーブのずれた曲線を描いて立体感を出しています｡ ☆☆☆"
  8. 1070 C=LEN(A$):D=(80-C)\2:LOCATE 0,23:PRINT SPACE$(D)+A$
  9. 1080 T1=TIME:S=0 
  10. 1090   FOR X=-4 TO 4 STEP .2!
  11. 1100     Y=-4
  12. 1110     GOSUB *MAIN
  13. 1120     POINT(XX,YY)
  14. 1130     FOR Y=-4 TO 4 STEP .2!
  15. 1140       GOSUB *MAIN
  16. 1150       LINE -(XX,YY),PSET,5
  17. 1160     NEXT
  18. 1170     S=S+1
  19. 1180   NEXT
  20. 1190   FOR Y=-4 TO 4 STEP .2!
  21. 1200     X=-4
  22. 1210     GOSUB *MAIN
  23. 1220     POINT(XX,YY)
  24. 1230     FOR X=-4 TO 4 STEP .2!
  25. 1240       GOSUB *MAIN
  26. 1250       LINE -(XX,YY),PSET,4
  27. 1260     NEXT
  28. 1270     S=S+1
  29. 1280   NEXT
  30. 1290 T2=TIME:T=T2-T1:LOCATE 5,1:PRINT "描き上げる時間--";T;"秒  描いた曲線の数--";S;"本" 
  31. 1300 WAIT 100
  32. 1310 GOTO 1360
  33. 1320 *MAIN
  34. 1330  XX=A*X+3*A*Y
  35. 1340  YY=B*X-B*Y-COS(X)*COS(Y)*.6!
  36. 1350 RETURN
  37. 1360 '
  38.